home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_2 / key.ass < prev    next >
Text File  |  1995-03-23  |  1KB  |  45 lines

  1. Article 1759 of comp.sys.handhelds:
  2. From: conte@crest.csg.uiuc.edu (Tom Conte)
  3. Newsgroups: comp.sys.handhelds
  4. Subject: Two tools for 48sx
  5. Keywords: 48sx, hp
  6. Date: 8 Apr 90 21:40:19 GMT
  7. Organization: University of Illinois at Urbana
  8.  
  9. The second tool is useful for finding out the USER-mode bindings of
  10. a key.  You execute SKEY and then hit a key, and it shows you all
  11. the assignments for that key.
  12.  
  13. xsum: #DB67h, bytes: 371.5
  14. 'SKEY'
  15. \<< 10 CF
  16. "Press key to see\010its assignments:"
  17. 1 DISP 1 FREEZE
  18.   WHILE KEY 0 ==
  19.   REPEAT
  20.   END LASTARG DROP
  21. { "  :" " L:" " R:"
  22. " \Ga:" "L\Ga:" "R\Ga:" }    @ \Ga means `alpha', right-shifted A
  23. RCLKEYS \-> k l a @ just a plain old lower-case "K L A" here
  24.   \<< "" 1 6
  25.       FOR i l i GET a    @ lower-case a
  26. k i 10 / + POS
  27.         IF DUP 0 \=/    @ \=/ is the not-equals sign, right-shifted Y
  28.         THEN 1 - a    @ lower-case a
  29. SWAP GET \->STR 10 SF
  30.         ELSE DROP ""
  31.         END "\010"    @ a new-line
  32. + + +
  33.         NEXT
  34.         IF 10 FC?
  35.         THEN DROP
  36. "No assignments\010"    @ a new-line
  37.         END 1 DISP 3
  38. FREEZE
  39.   \>>
  40. \>>
  41.  
  42.  
  43. Tom Conte      Center for Reliable and High-Performance Computing
  44.  conte@uiuc.edu   University of Illinois, Urbana-Champaign, Illinois
  45.